home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / editors / emcs1857 / 1857el~1.zoo / lisp / loadup.elc < prev    next >
Encoding:
Text File  |  1992-02-04  |  2.1 KB  |  95 lines
  1.  
  2. (load "subr")
  3.  
  4. (garbage-collect)
  5.  
  6. (load "loaddefs.el")
  7.  
  8. (garbage-collect)
  9.  
  10. (load "simple")
  11.  
  12. (garbage-collect)
  13.  
  14. (load "help")
  15.  
  16. (garbage-collect)
  17.  
  18. (load "files")
  19.  
  20. (garbage-collect)
  21.  
  22. (load "indent")
  23.  
  24. (load "window")
  25.  
  26. (load "paths.el")
  27.  
  28. (garbage-collect)
  29.  
  30. (load "startup")
  31.  
  32. (load "lisp")
  33.  
  34. (garbage-collect)
  35.  
  36. (load "page")
  37.  
  38. (load "register")
  39.  
  40. (garbage-collect)
  41.  
  42. (load "paragraphs")
  43.  
  44. (load "lisp-mode")
  45.  
  46. (garbage-collect)
  47.  
  48. (load "text-mode")
  49.  
  50. (load "fill")
  51.  
  52. (garbage-collect)
  53.  
  54. (load "c-mode")
  55.  
  56. (garbage-collect)
  57.  
  58. (load "isearch")
  59.  
  60. (garbage-collect)
  61.  
  62. (load "replace")
  63.  
  64. (if (eq system-type (quote vax-vms)) (progn (garbage-collect) (load "vmsproc")))
  65.  
  66. (garbage-collect)
  67.  
  68. (load "abbrev")
  69.  
  70. (garbage-collect)
  71.  
  72. (load "buff-menu")
  73.  
  74. (if (eq system-type (quote vax-vms)) (progn (garbage-collect) (load "vms-patch")))
  75.  
  76. (if (load "site-load" t) (garbage-collect))
  77.  
  78. (load "version.el")
  79.  
  80. (message "Finding pointers to doc strings...")
  81.  
  82. (if (fboundp (quote dump-emacs)) (let ((name emacs-version)) (while (string-match "[^-+_.a-zA-Z0-9]+" name) (setq name (concat (downcase (substring name 0 (match-beginning 0))) "-" (substring name (match-end 0))))) (copy-file (expand-file-name "../etc/DOC") (concat (expand-file-name "../etc/DOC-") name) t) (Snarf-documentation (concat "DOC-" name))) (Snarf-documentation "DOC"))
  83.  
  84. (message "Finding pointers to doc strings...done")
  85.  
  86. (load "site-init" t)
  87.  
  88. (garbage-collect)
  89.  
  90. (if (or (equal (nth 3 command-line-args) "dump") (equal (nth 4 command-line-args) "dump")) (if (eq system-type (quote vax-vms)) (progn (message "Dumping data as file temacs.dump") (dump-emacs "temacs.dump" "temacs") (kill-emacs)) (if (fboundp (quote dump-emacs-data)) (progn (message "Dumping data as file ../etc/EMACS-DATA") (dump-emacs-data "../etc/EMACS-DATA") (kill-emacs)) (let ((name (concat "emacs-" emacs-version))) (while (string-match "[^-+_.a-zA-Z0-9]+" name) (setq name (concat (downcase (substring name 0 (match-beginning 0))) "-" (substring name (match-end 0))))) (message "Dumping under name xemacs")) (condition-case nil (delete-file "xemacs") (file-error nil)) (dump-emacs "xemacs" "temacs") (kill-emacs))))
  91.  
  92. (setq purify-flag nil)
  93.  
  94. (or (fboundp (quote dump-emacs)) (eval top-level))
  95.